home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / modems / mod_m2z / tbbs / tbbs.bts < prev   
Encoding:
Text File  |  1995-05-02  |  1.3 KB  |  35 lines
  1. //TBBS.BTS, a crude off-line reader for TBBS-style bulletin board
  2. //systems.  By Bob Morrow (aka R.MORROW10).  This was designed
  3. //around a local system running v2.? of TBBS.  Sorry, there's no
  4. //reply ability here; that's for someone else to hack.  (I'm not
  5. //sure that TBBS can support off-line replies.)  STeno.acc must
  6. //ride shotgun so that the set_capture() function works.  STeno.acc
  7. //can be run from within MultiDesk Deluxe and it will still work.
  8. //(You don't have MDD?)
  9. //
  10. //Public domain; but let me know what kind of changes you come up
  11. //with; especially with reply ability.  I need to learn the art of
  12. //BackTALKing! <g>
  13.  
  14.  
  15. function main()
  16.     wait_for("your FULL Name? ", 0);
  17.     port_send("NAME\r", TRUE);
  18.     wait_for("Your Password: ", 0);
  19.     port_send("PASSWORD\r", TRUE);
  20.  
  21.     wait_for("-Press Any Key-", 0);
  22.     port_send("\r", TRUE);
  23.     set_capture(1);        // 1 = on.  
  24.  
  25.     wait_for("Command: ", 0);
  26.     port_send("mrnn", TRUE);    //M = go to message base, R = read, N
  27.                         //= new messages, N = no pause
  28.                         //between msgs.
  29.     wait_for("-Press Any Key-",0);    //Seen after last msg.
  30.     port_send("\r");
  31.     wait_for("Command: ", 0);
  32.     set_capture(0);        // 0 = off.
  33.     port_send("gy\r");        // Get outta Dodge!
  34. endfunction
  35.